﻿Public Class LandschaftstexturFluss
    Inherits ObjektLandschaftsTextur



    Public Sub New()
        ID = "FLUSS"
        Landschaftsname = "Fluss"
        Deckung = 0
        Tarnung = False
        KP = -1
        Select Case My.Settings.TerrainStyle
            Case TerrainStyle.AdvanceWarsDC, TerrainStyle.CommanderWars2
                TexturenLaden(New String() {"Fluss", "Fluss+N+S", "Fluss+S+W", "Fluss+N+S+W", "Fluss+N+W", "Fluss+O+W", "Fluss+N+O+W", "Fluss+N+O", "Fluss+N+O+S", "Fluss+O+S", "Fluss+O+S+W", "Fluss+N+O+S+W", "Fluss+W", "Fluss+O", "Fluss+S", "Fluss+N"})
            Case Else
                TexturenLaden(New String() {"Fluss+N+S", "Fluss+S+W", "Fluss+N+S+W", "Fluss+N+W", "Fluss+O+W", "Fluss+N+O+W", "Fluss+N+O", "Fluss+N+O+S", "Fluss+O+S", "Fluss+O+S+W", "Fluss+N+O+S+W", "Fluss+W", "Fluss+O", "Fluss+S", "Fluss+N"})
                Frame = True
        End Select

        Normal = 0
        Ausrichtungslandschaften = New String() {"FLUSS", "BRÜCKE", "SEE", "ZUGBRÜCKE", "BAUBRÜCKE"}
        ÜbergängeLaden("Flussmündung")
    End Sub

    Public Overrides Sub Malen3D(ByVal p_MatCube As Microsoft.DirectX.Matrix, ByVal Landschaft As ObjektLandschaft)

    End Sub

    Public Overrides Sub Ini3D()

    End Sub

    Public Overrides Sub Tick()

    End Sub
End Class
